TITLE KAFFEE PROGRAM

A=1
B=2
C=3

KAFFEE:
	MOVEI A,17777
	CORE A,
	 EXIT 0,
	DETSEG 0,
	RESET
LOOP:
	ADDI B,105
	ADD B,FOO
	MSTIME A,
	ADD A,B
	MOVSM A,FOO
	ANDI A,77
	IMUL A,[2020202]
	AND A,[104422010]
	IDIVI A,377
STATUS:
	MOVE A,B
	MOVE C,B
	GETNAM A,
	JBTSTS B,
	TLNN B,10000
	 JRST LOOP
	TLNE B,101000
	 JRST LOOP
TRY:
	MOVSI B,377777
	SETPR2 B,
	 JRST KAFFEE
TTY:
	MOVE B,400236
	ADDI B,400000(C)
	MOVE B,(B)
	TLNN B,65000
	 JRST KAFFEE
CORN:
	MOVE B,400212
	ADDI B,400000(C)
	MOVE B,(B)
	ANDI B,777
	CAIL B,20
	 CAILE B,200
	  JRST KAFFEE
	LSH B,11
	SUBI B,1
	CORE B,
	 JRST KAFFEE
SEG:
	MOVE B,C
	JBTSTS B,
	ANDI B,77
	DETSEG 0,
	JUMPE B,.+3
	ATTSEG B,
	 JRST KAFFEE
NAME:
	MOVE A,C
	GETNAM A,
	SETNAM A,
	MOVN B,A
	MOVEI A,73
	SLEEP A,

HI:	JRST KAFFEE

FOO:	SIXBIT/KAFFEE/

END KAFFEE